gtk-demo: Remove old build file

The includes are now generated with a Python script, so remvoe the old
perl script.

diff --git a/demos/gtk-demo/geninclude.pl.in b/demos/gtk-demo/geninclude.pl.in
deleted file mode 100755 (executable)
index 5c9351d..0000000
--- a/demos/gtk-demo/geninclude.pl.in
+++ /dev/null
@@ -1,164 +0,0 @@
-#!@PERL@ -w
-
-print <<EOT;
-typedef        GtkWidget *(*GDoDemoFunc) (GtkWidget *do_widget);
-
-typedef struct _Demo Demo;
-
-struct _Demo 
-{
-  gchar *name;
-  gchar *title;
-  gchar *filename;
-  GDoDemoFunc func;
-  Demo *children;
-};
-
-EOT
-
-for $file (@ARGV) {
-    my %demo;
-    
-    ($basename = $file) =~ s/\.c$//;
-
-    open INFO_FILE, $file or die "Cannot open '$file'\n";
-    $title = <INFO_FILE>;
-    $title =~ s@^\s*/\*\s*@@;
-    $title =~ s@\s*$@@;
-
-    close INFO_FILE;
-
-    print "GtkWidget *do_$basename (GtkWidget *do_widget);\n";
-
-    push @demos, {"name" => $basename, "title" => $title, "file" => $file,
-                 "func"  => "do_$basename"};
-}
-
-# generate a list of 'parent names'
-foreach $href (@demos) {
-    if ($href->{"title"} =~ m|^([-\w\s]+)/[-\w\s]+$|) {
-       my $parent_name = $1;
-       my $do_next = 0;
-
-       # parent detected
-       if (@parents) {
-           foreach $foo (@parents) {
-               if ($foo eq $parent_name) {
-                   $do_next = 1;
-               }
-           }
-           
-           if ($do_next) {
-               next;
-           }
-       }
-
-       push @parents, $parent_name;
-
-       $tmp = (@child_arrays)?($#child_arrays + 1):0;
-       push @child_arrays, "child$tmp";
-
-       push @demos, {"name" => "NULL", "title" => $parent_name, "file" => "NULL",
-                     "func" => "NULL"};
-    }
-}
-
-if (@parents) {
-    $i = 0;
-    for ($i = 0; $i <= $#parents; $i++) {
-       $first = 1;
-       
-       print "\nDemo ", $child_arrays[$i], "[] = {\n";
-       
-       $j = 0;
-       for ($j = 0; $j <= $#demos; $j++) {
-           $href = $demos[$j];
-           
-           if (!$demos[$j]) {
-               next;
-           }
-           
-           if ($demos[$j]{"title"} =~ m|^$parents[$i]/([-\w\s]+)$|) {
-               if ($first) {
-                   $first = 0;
-               } else {
-                   print ",\n";
-               }
-               
-               print qq (  { "$demos[$j]{name}", "$1", "$demos[$j]{file}", $demos[$j]{func}, NULL });
-
-               # hack ... ugly
-               $demos[$j]{"title"} = "foo";
-           }
-       }
-
-       print ",\n";
-       print qq (  { NULL } );
-       print "\n};\n";
-    }   
-}
-
-# sort @demos
-@demos_old = @demos;
-
-@demos = sort {
-    $a->{"title"} cmp $b->{"title"};
-} @demos_old;
-
-# sort the child arrays
-if (@child_arrays) {
-    for ($i = 0; $i <= $#child_arrays; $i++) {
-       @foo_old = @{$child_arrays[$i]};
-
-       @{$child_arrays[$i]} = sort {
-           $a->{"title"} cmp $b->{"title"};
-       } @foo_old;
-    }
-}
-
-# toplevel
-print "\nDemo gtk_demos[] = {\n";
-
-$first = 1;
-foreach $href (@demos) {
-    $handled = 0;
-
-    # ugly evil hack
-    if ($href->{title} eq "foo") {
-       next;
-    }
-
-    if ($first) {
-       $first = 0;
-    } else {
-       print ", \n";
-    }
-
-    if (@parents) {
-       for ($i = 0; $i <= $#parents; $i++) {
-           if ($parents[$i] eq $href->{title}) {
-
-               if ($href->{file} eq 'NULL') {
-                   print qq (  { NULL, "$href->{title}", NULL, $href->{func}, $child_arrays[$i] });
-               } else {
-                   print qq (  { "$href->{name}", "$href->{title}", "$href->{file}", $href->{func}, $child_arrays[$i] });
-               }
-               
-               $handled = 1;
-               last;
-           }
-       }
-    }
-    
-    if ($handled) {
-       next;
-    }
-    
-    print qq (  { "$href->{name}", "$href->{title}", "$href->{file}", $href->{func}, NULL });
-}
-
-print ",\n";
-print qq (  { NULL } );
-print "\n};\n";
-
-exit 0;